home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 July & August / PCWorld_2007-07-08_cd.bin / v cisle / multiav / Multi_AV.exe / Sophos.kix < prev    next >
Text File  |  2007-05-09  |  4KB  |  131 lines
  1. ;
  2. ;  05-09-2007 // v2.00
  3. ;
  4. SETCONSOLE("hide")
  5. $ProcMode1=left($ProcMode,1)
  6. SELECT
  7.   CASE $ProcMode1="R"
  8.     $MalwareProcMode=' -s -di -remove '
  9.   CASE $ProcMode1="D"
  10.     $MalwareProcMode=' '
  11. ENDSELECT
  12. $CMDline1='-dn -f -all -mime -mbr -noc -archive -opt=ISCabinet --stop-scan -p="ScanReport.txt"'
  13. $CMDline=$MalwareProcMode+$CMDline1
  14. $SafeMode="N"
  15. $home="c:\AV-CLS\Sophos"
  16. $procedurefile="c:\AV-CLS\killproc.txt"
  17. $drive=left($home,2)
  18. go $drive
  19. md $home
  20. md $home+"\temp"
  21. cd $home
  22. $WMICheck = ConfirmWMI()     
  23. If ($WMICheck="")=0  
  24.   Dim $objWMIServ
  25.   $objWMIServ=GetObject("winmgmts:\\.\root\CIMV2").ExecQuery("SELECT * FROM Win32_ComputerSystem", "WQL",48)
  26.   For Each $obj In $objWMIServ
  27.     $BootupState=$obj.BootupState
  28.   Next
  29.   $BootStat=$BootupState
  30.   $BootupState=left(ucase($BootupState),6)  
  31.   if ($BootupState="NORMAL")=0 $SafeMode="Y" endif
  32. Else   
  33.   $BootStat="Undetermined"
  34.   $SafeMode="U"
  35. EndIf
  36. If ($SafeMode="Y")=1 and exist ("*.ide")=1 goto SCAN endif
  37. If ($SafeMode="Y")=1 and exist ("*.ide")=0 
  38.   BEEP
  39.   ShutDown ("","Sophos scanner files were not found. The computer is being shutdown so you can download the needed Sophos files in Normal Mode",30,1,1)
  40.   goto END
  41. endif
  42. gosub "GetFiles"
  43. :SCAN
  44. $result=messagebox ("Do you want to run the Sophos CLS now ? "," Sophos Command Line Scanner ",36,20)
  45. SELECT
  46.   CASE ($result="6")=1
  47.     ; YES
  48.     $result=messagebox ("Do you want to scan a particular folder or location  ? "," Sophos Command Line Scanner ",36,20)
  49.     KillProcess()
  50.     SELECT
  51.       CASE ($result="6")=1
  52.         ; YES
  53.         gosub "ScanFolder"
  54.       CASE ($result="7")=1
  55.         ; NO
  56.         CleanCache()
  57.         gosub "ScanDefault"
  58.     ENDSELECT
  59.   CASE ($result="7")=1
  60.     ; NO
  61.     goto END
  62.   CASE 1
  63.     ; NO
  64.     goto END
  65. ENDSELECT
  66. :END
  67. SETCONSOLE("hide")
  68. exit
  69. ;---------------------------------------------------
  70. :GetFiles
  71.   SETCONSOLE("SHOW")
  72.   SETCONSOLE("MAXIMIZE")
  73.   SETCONSOLE("FOREGROUND")
  74.   SETTITLE ("Sophos Module")
  75.   Color y+/b
  76.   cls
  77.   shell "c:\AV-CLS\wget -N http://www.sophos.com/tools/sav32sfx.exe"
  78.   cls
  79.   shell "c:\AV-CLS\wget -N http://www.sophos.com/downloads/ide/web_ides.exe"
  80.   cls
  81.   shell "c:\AV-CLS\wget -N http://www.sophos.com/tools/esdz.exe"
  82.   cls
  83.   SETCONSOLE("hide")
  84.   del "*.ide"
  85.   shell "c:\AV-CLS\unzip -j -oC esdz.exe sweep.exe"
  86.   if exist ($home+"\DOS4GW.EXE")=0
  87.     shell "c:\AV-CLS\unzip -j -oC esdz.exe DOS4GW.EXE"
  88.   endif 
  89.   shell "c:\AV-CLS\unzip -j -o  sav32sfx.exe"
  90.   shell "web_ides.exe -x"
  91. return
  92. ;---------------------------------------------------
  93. :ScanDefault
  94.   copy "SAV32CLI.EXE" "t.EXE"
  95.   SETCONSOLE("SHOW")
  96.   SETCONSOLE("MAXIMIZE")
  97.   SETCONSOLE("FOREGROUND")
  98.   SETTITLE ("Sophos Module")
  99.   Color y+/n
  100.   cls
  101.   shell "t.EXE c: d: "+$CMDline
  102.   SETCONSOLE("hide")
  103.   del "t.EXE"
  104.   if exist ("ScanReport.txt")=1 run "notepad ScanReport.txt" endif
  105. return
  106. ;---------------------------------------------------
  107. :ScanFolder
  108.   copy "SAV32CLI.EXE" "t.EXE"
  109.   $folder=GUIdialog()
  110.   if @error or (left($folder,2)="::")=1
  111.     $folder="C:"
  112.   endif
  113.   if (len($folder)=3)=1
  114.     $folder=left($folder,2)
  115.   endif
  116.   SETCONSOLE("SHOW")
  117.   SETCONSOLE("MAXIMIZE")
  118.   SETCONSOLE("FOREGROUND")
  119.   SETTITLE ("Sophos Module")
  120.   Color y+/n
  121.   cls
  122.   Color g+/n
  123.   AT  (1,0)  "Scanning... "+$folder
  124.   AT  (3,0) 
  125.   Color y+/n
  126.   shell 't.EXE "$folder" '+$CMDline
  127.   SETCONSOLE("hide")
  128.   del "t.EXE"
  129.   if exist ("ScanReport.txt")=1 run "notepad ScanReport.txt" endif
  130. return
  131.